home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M19.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  2KB  |  135 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   TSTRING004(3)
  27.     String   STRING005
  28.     String   TSTRING006(3)
  29.     String   TSTRING007(5)
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     Goto LABEL001
  34.     End
  35.     If (0 == 0) STRING001 = "NO"
  36.     If (0 == 1) STRING001 = "YES"
  37.  
  38.     EndFunc
  39.  
  40.     :LABEL001
  41.     INTEGER003 = 1
  42.     STRING003 = Chr(13)
  43.     TSTRING007(1) = "@X0E"
  44.     TSTRING007(2) = "@X0E"
  45.     TSTRING007(3) = "@X0A"
  46.     TSTRING007(4) = "@X02"
  47.     TSTRING007(5) = "@X09"
  48.     TSTRING006(1) = "Press"
  49.     TSTRING006(2) = "Enter"
  50.     TSTRING006(3) = "to continue"
  51.     TSTRING004(0) = "█"
  52.     TSTRING004(1) = "▄"
  53.     TSTRING004(2) = "■"
  54.     TSTRING004(3) = "▀"
  55.     STRING005 = " " + TSTRING007(4) + " " + TSTRING006(1) + " " + TSTRING007(5) + "[" + TSTRING007(3) + TSTRING006(2) + TSTRING007(5) + "]" + TSTRING007(4) + " " + TSTRING006(3) + " "
  56.     If (GrafMode() == "N") Then
  57.         Print TSTRING006(1) + " (" + TSTRING006(2) + ") " + TSTRING006(3)
  58.         End
  59.     Else
  60.         Print "                         ", STRING005
  61.     Endif
  62.     INTEGER001 = GetX()
  63.     INTEGER002 = GetY()
  64.     INTEGER004 = INTEGER001 + 1
  65.     While (STRING002 <> STRING003) Do
  66.         AnsiPos 25, INTEGER002
  67.         Print TSTRING007(1)
  68.         Print TSTRING004(INTEGER003 % 4)
  69.         AnsiPos INTEGER001, INTEGER002
  70.         Print TSTRING007(2)
  71.         Print TSTRING004(INTEGER003 % 4)
  72.         Delay 1
  73.         Inc INTEGER003
  74.         STRING002 = Inkey()
  75.     EndWhile
  76.     Color 0
  77.     While (INTEGER004 >= 1) Do
  78.         AnsiPos INTEGER004, INTEGER002
  79.         Print " "
  80.         Dec INTEGER004
  81.     EndWhile
  82.     DefColor
  83.     End
  84.  
  85. ;------------------------------------------------------------------------------
  86. ;
  87. ; Usage report (before postprocessing)
  88. ;
  89. ; ■ Statements used :
  90. ;
  91. ;    3       End
  92. ;    1       Color 
  93. ;    7       Goto 
  94. ;    21      Let 
  95. ;    7       Print 
  96. ;    5       If 
  97. ;    1       DefColor
  98. ;    1       Delay 
  99. ;    1       Inc 
  100. ;    1       Dec 
  101. ;    3       AnsiPos 
  102. ;    1       EndFunc
  103. ;
  104. ;
  105. ; ■ Functions used :
  106. ;
  107. ;    2       %
  108. ;    19      +
  109. ;    3       ==
  110. ;    1       <>
  111. ;    1       >=
  112. ;    3       !
  113. ;    1       Chr()
  114. ;    1       Inkey()
  115. ;    1       GetX()
  116. ;    1       GetY()
  117. ;    1       GrafMode()
  118. ;
  119. ;------------------------------------------------------------------------------
  120. ;
  121. ; Analysis flags : No flag
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Postprocessing report
  126. ;
  127. ;    0       For/Next
  128. ;    2       While/EndWhile
  129. ;    1       If/Then or If/Then/Else
  130. ;    0       Select Case
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;                 AEGiS Corp - Break the routines, code against the machines!
  134. ;------------------------------------------------------------------------------
  135.